home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / ADV350.ZIP / speak.for < prev    next >
Encoding:
Text File  |  1990-11-11  |  782 b   |  30 lines
  1.       SUBROUTINE SPEAK(N)
  2.       
  3. C  PRINT THE MESSAGE IN RECORD N OF THE RANDOM ACCESS MESSAGE FILE.
  4. C  PRECEDE IT WITH A BLANK LINE UNLESS BLKLIN IS FALSE.
  5.  
  6.       IMPLICIT INTEGER*4 (A-Z)
  7. C     INTEGER*2 RTEXT,ASCVAR,N
  8.       LOGICAL BLKLIN
  9.       COMMON /TXTCOM/ RTEXT,LINES,ASCVAR
  10.       COMMON /BLKCOM/ BLKLIN
  11.       DIMENSION RTEXT(205),LINES(18)
  12.       
  13.       IF(N.EQ.0) RETURN
  14.       READ(2,REC=N) LOC,LINES
  15.       ASCVAR=N+1
  16.       IF(LINES(1).EQ.'>$<') RETURN
  17.       IF(BLKLIN) WRITE(*,2)
  18.     1 OLDLOC=LOC
  19.       DO 3 I=18,1,-1
  20.       L=I
  21.       IF(LINES(I).NE.' ') GOTO 5
  22.     3 CONTINUE
  23.     5 WRITE(*,2) (LINES(I),I=1,L)
  24.     2 FORMAT(' ',18A4)
  25.       READ(2,REC=ASCVAR) LOC,LINES
  26.       ASCVAR=ASCVAR+1
  27.       IF(LOC.EQ.OLDLOC) GOTO 1
  28.       RETURN
  29.       END
  30.